|
|
|
|
|
|
|
' Locale Puzzle
' Copyright © 1998 by Desaware Inc. All Rights Reserved
Option Explicit
Private Sub Command1_Click()
Dim lRet As Long
lRet = EnumSystemLocales(AddressOf EnumLocalesProc, LCID_INSTALLED)
End Sub |
|
|
|
|
|
|
|
|
The LocaleName variable in the EnumLocalesProc function still has a trailing NULL termination character that you can strip off if necessary. This program will display the results as eight hexadecimal digits. For example, U.S. English Windows will display locale 00000409. (In-depth information on locales can be found in the online Win32 documentation and in Chapter 6 of my Visual Basic Programmer's Guide to the Win32 API.) |
|
|
|
|
|